10 B=50000:T=0
20 READA:IFA=-1THEN40
30 POKEB+T,A:P=P+A:T=T+1:GOTO20
40 IFP<>8743THENPRINT"FEHLER IN DEN DATAS!":END
50 PRINTCHR$(147)CHR$(18);"    TOP SECRET  (C) BY GERRIT HEPCKE    "
60 NEW
70 DATA32,253,174,32,138,173,32,247,183,141,129,195,140,131,195,204
80 DATA129,195,208,5,169,0,141,131,195,169,1,133,250,169,8,133
90 DATA251,160,0,196,45,208,7,165,251,197,46,208,1,96,177,250
100 DATA73,0,73,0,145,250,200,208,234,230,251,76,115,195,-1